home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / lang / PPCsmalltalk.lha / PPCSmallTalk / prelude / radian.st < prev    next >
Text File  |  1986-10-19  |  459b  |  28 lines
  1. Class Radian :Magnitude
  2. | value |
  3. [
  4.         new: x
  5.                 value <- <primitive 80 (x asFloat) >
  6.  
  7. |    < arg
  8.         ^ value < arg asFloat
  9.  
  10. |    = arg
  11.         ^ value = arg asFloat
  12.  
  13. |       sin
  14.                 ^ <primitive 81 value>
  15.  
  16. |       cos
  17.                 ^ <primitive 82 value>
  18.  
  19. |       tan
  20.                 ^ <primitive 81 value> / <primitive 82 value>
  21.  
  22. |       asFloat
  23.                 ^ value
  24.  
  25. |       printString
  26.                 ^ value asString , ' radians'
  27. ]
  28.